0 IFPEEK(828)=99THEN2
1 IFA=0THENA=1:POKE828,99:LOAD"FF.OBJ",8,1
2 FORI=1TO20:LN$=LN$+"[192]":LS$=LS$+" ":NEXT:RD$="[144] "
4 LA$=LEFT$(LN$,18)
6 UR$(1)="[176]"+LA$+"[174]":UR$(2)="[221]"+LEFT$(LS$,18)+"[221]":UR$(3)="[173]"+LEFT$(LN$,18)+"[189]
7 [151] 53280,1:[151] 53281,1:[153]"LOADSTOP":[141]100
8 [153]"ASCATN(null)(null)ASC(null)(null)(null)ATN(null) 11.0"
9 [153][166]3)"BY MID$AN (null)USCH"
10 [153][163]1)"STR$ISKETTE EINLEGEN,":[153][163]3)"DANN <(null)VAL(null)(null)(null)(null)>!"
11 [161]T$:[139]T$[179][177][199](13)[167]11
12 [141]200
19 [151]19,64:[133]"CONTSTR$ISKNAME:";N$:[151]19,0:[153]:[153]:N$[178][200](N$,16)
20 [153][163]11);:[151]19,64:[133]"CONTRIGHT$STR$-(null)ENNUNG:";I$:[151]19,0:[153]:[153]
21 I$[178][200](I$,2)
30 [153][163]11);:[151]19,64:[133]"CONT(null)AUFWERK-(null)R.";D$:[151]19,0:[153]
31 D$[178][200](D$,1):D[178][197](D$)
35 [139]D[179][177]8[175]D[179][177]9[167]30
40 [158]49152,N$,I$,D
42 [141]300
50 [153]"DEF(null)OCH EINE STR$ISKETTE":[153][163]1)"DEFFORMATIEREN? (J/N)"
60 [161]T$:[139]T$[178]"J"[167][138]
70 [139]T$[178]"N"[167][151]646,0:[153]"LOAD":[128]
80 [137]60
100 [153]""[170]UR$(1)
102 [129]I[178]1[164]5:[153]UR$(2)[170]RD$[170]"":[130]
103 [153]UR$(3)[170]RD$
104 [153][163]2)RD$[170][200](LS$,18)
105 [151]214,2:[151]211,2:[158]58640
106 [142]
200 [151]214,10:[151]211,10:[158]58640
202 [153]"CONT"[170]LS$[170][200](LS$,7)
204 [129]I[178]1[164]6:[153][163]10)"CONT"[170]LS$[200](LS$,7)[170]RD$:[130]
206 [153][163]11)""[170]LS$[170][200](LS$,7)
207 [151]214,11:[151]211,11:[158]58640
210 [142]
300 [151]214,15:[151]211,0:[158]58640
301 [153]"DEF"[170]UR$(1)
302 [129]I[178]1[164]4:[153]UR$(2)[170]RD$[170]"DEF":[130]
303 [153]UR$(3)[170]RD$
304 [153][163]2)RD$[170][200](LS$,18)
305 [151]214,17:[151]211,1:[158]58640
306 [142]